perm filename CCC.F4[MSS,LCS] blob sn#164504 filedate 1975-06-13 generic text, type T, neo UTF8
00100		DIMENSION J(10)
00200	10	ACCEPT 1,J
00300		K=0
00400		DO 3 L=1,10
00500	3	K=K+J(L)
00600		TYPE 1,K
00700		GO TO 10
00800	1	FORMAT(10I)
00900		END